#!/usr/bin/perl

eval { die "Fehler"; };

if ($@) {
	print "Meldung: $@\n";
}
